home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINPROGS / ATT302.ZIP / ATOMIC.FRM < prev    next >
Text File  |  1993-08-28  |  18KB  |  554 lines
  1. VERSION 2.00
  2. Begin Form Atomic 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Call the Atomic Clock"
  6.    ClientHeight    =   3975
  7.    ClientLeft      =   2475
  8.    ClientTop       =   945
  9.    ClientWidth     =   4695
  10.    ClipControls    =   0   'False
  11.    Height          =   4410
  12.    Left            =   2400
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3975
  17.    ScaleWidth      =   4695
  18.    Top             =   585
  19.    Width           =   4845
  20.    Begin MSComm Comm1 
  21.       InBufferSize    =   2048
  22.       Interval        =   1000
  23.       Left            =   3390
  24.       NullDiscard     =   -1  'True
  25.       OutBufferSize   =   2048
  26.       RTSEnable       =   -1  'True
  27.       Top             =   1125
  28.    End
  29.    Begin SSCheck DST 
  30.       Caption         =   "Use Daylight Savings Time"
  31.       Height          =   285
  32.       Left            =   225
  33.       TabIndex        =   4
  34.       Top             =   960
  35.       Width           =   2640
  36.    End
  37.    Begin ComboBox TimeZone 
  38.       BackColor       =   &H00FFFFFF&
  39.       Height          =   300
  40.       Left            =   375
  41.       Style           =   2  'Dropdown List
  42.       TabIndex        =   3
  43.       Top             =   450
  44.       Width           =   4065
  45.    End
  46.    Begin CommandButton Command1 
  47.       Cancel          =   -1  'True
  48.       Caption         =   "Cancel"
  49.       Height          =   345
  50.       Index           =   2
  51.       Left            =   2370
  52.       TabIndex        =   1
  53.       Top             =   3300
  54.       Width           =   2085
  55.    End
  56.    Begin CommandButton Command1 
  57.       Caption         =   "Dial"
  58.       Default         =   -1  'True
  59.       Height          =   345
  60.       Index           =   1
  61.       Left            =   2370
  62.       TabIndex        =   0
  63.       Top             =   2790
  64.       Width           =   2070
  65.    End
  66.    Begin CommandButton Command1 
  67.       Caption         =   "Reset Defaults"
  68.       Height          =   345
  69.       Index           =   0
  70.       Left            =   2370
  71.       TabIndex        =   12
  72.       Top             =   2280
  73.       Width           =   2070
  74.    End
  75.    Begin SSFrame Frame3D1 
  76.       Caption         =   "COM Port"
  77.       ForeColor       =   &H00000000&
  78.       Height          =   1530
  79.       Left            =   255
  80.       TabIndex        =   7
  81.       Top             =   2190
  82.       Width           =   1965
  83.       Begin SSOption ComPort 
  84.          Caption         =   "COM&4:"
  85.          ForeColor       =   &H00000000&
  86.          Height          =   240
  87.          Index           =   3
  88.          Left            =   135
  89.          TabIndex        =   11
  90.          Top             =   1185
  91.          Width           =   780
  92.       End
  93.       Begin SSOption ComPort 
  94.          Caption         =   "COM&3:"
  95.          ForeColor       =   &H00000000&
  96.          Height          =   240
  97.          Index           =   2
  98.          Left            =   135
  99.          TabIndex        =   10
  100.          Top             =   885
  101.          Width           =   780
  102.       End
  103.       Begin SSOption ComPort 
  104.          Caption         =   "COM&2:"
  105.          ForeColor       =   &H00000000&
  106.          Height          =   240
  107.          Index           =   1
  108.          Left            =   135
  109.          TabIndex        =   9
  110.          Top             =   585
  111.          Width           =   780
  112.       End
  113.       Begin SSOption ComPort 
  114.          Caption         =   "COM&1:"
  115.          ForeColor       =   &H00000000&
  116.          Height          =   240
  117.          Index           =   0
  118.          Left            =   135
  119.          TabIndex        =   8
  120.          Top             =   285
  121.          Width           =   780
  122.       End
  123.    End
  124.    Begin TextBox DialString 
  125.       Height          =   300
  126.       Left            =   375
  127.       TabIndex        =   6
  128.       Text            =   "ATDT 1 303 494-4774"
  129.       Top             =   1710
  130.       Width           =   4080
  131.    End
  132.    Begin Label Status 
  133.       Alignment       =   1  'Right Justify
  134.       BackStyle       =   0  'Transparent
  135.       Height          =   240
  136.       Left            =   1125
  137.       TabIndex        =   13
  138.       Top             =   15
  139.       Width           =   3300
  140.    End
  141.    Begin Label Label1 
  142.       BackStyle       =   0  'Transparent
  143.       Caption         =   "Modem Dial String"
  144.       Height          =   210
  145.       Index           =   1
  146.       Left            =   225
  147.       TabIndex        =   5
  148.       Top             =   1440
  149.       Width           =   2145
  150.    End
  151.    Begin Label Label1 
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "Time Zone"
  154.       Height          =   240
  155.       Index           =   0
  156.       Left            =   195
  157.       TabIndex        =   2
  158.       Top             =   165
  159.       Width           =   1320
  160.    End
  161. End
  162. Option Explicit
  163.  
  164. Dim ControlsDisabled As Integer
  165. Dim InString As String
  166. Dim TString As String
  167. Dim Aborted As Integer
  168.  
  169. '
  170.                              'DESCRIPTION OF THE
  171.                  'AUTOMATED COMPUTER TELEPHONE SERVICE (ACTS)
  172. '
  173. '
  174. 'The following is transmitted (at 1200 Baud) after completion of the
  175. 'telephone connection.
  176. '
  177.              '? = HELP
  178.              'National Institute of Standards and Technology
  179.              'Telephone Time Service
  180. '
  181.                                      'D  L D
  182.               'MJD  YR MO DA H  M  S  ST S UT1 msADV        <OTM>
  183.              '47999 90-04-18 21:39:15 50 0 +.1 045.0 UTC(NIST) *
  184.              '47999 90-04-18 21:39:16 50 0 +.1 045.0 UTC(NIST) *
  185.              '47999 90-04-18 21:39:17 50 0 +.1 045.0 UTC(NIST) *
  186.              '47999 90-04-18 21:39:18 50 0 +.1 045.0 UTC(NIST) *
  187.              '47999 90-04-18 21:39:19 50 0 +.1 037.6 UTC(NIST) #
  188.              '47999 90-04-18 21:39:20 50 0 +.1 037.6 UTC(NIST) #
  189.              'etc..etc...etc.......
  190. '
  191. 'UTC = Universal Time Coordinated, the official world time referred to the
  192. 'zero meridian.
  193. '_________________________________________________________________________
  194. '
  195. 'DST = Daylight savings time characters, valid for the continental U.S., are
  196. 'set as follows:
  197.   '00 = We are on standard time (ST).    50 = We are on DST.
  198.   '99 to 51 = Now on ST, go to DST when your local time is 2:00 am and the
  199.     'count is 51.  The count is decremented daily at 00 (UTC).
  200.   '49 to 01 = Now on DST, go to ST when your local time is 2:00 am and the
  201.     'count is 01.  The count is decremented daily at 00 (UTC).
  202. 'The two DST characters provide up to 48 days advance notice of a change in
  203. 'time.  The count remains at 00 or 50 at other times.
  204. '_________________________________________________________________________
  205. '
  206. 'LS = Leap second flag is set to "1" to indicate that a leap second is to be
  207. 'added as 23:59:60 (UTC) on the last day of the current UTC month.  The LS
  208. 'flag will be reset to "0" starting with 23:59:60 (UTC).  The flag will
  209. 'remain on for the entire month before the second is added.  Leap seconds
  210. 'are added as needed at the end of any month.  Usually June and/or December
  211. 'are chosen.
  212. '
  213. '__________________________________________________________________________
  214. ''
  215. 'DUT1 = Approximate difference between earth rotation time (UT1) and UTC, in
  216. 'steps of 0.1 second.         DUT1 = UT1 - UTC
  217. '___________________________________________________________________________
  218. ''
  219. 'MJD = Modified Julian Date, often used to tag certain scientific data.
  220. '___________________________________________________________________________
  221. ''
  222. 'The full time format is sent at 1200 Baud, 8 bit, 1 stop, no parity.
  223. 'The format at 300 Baud is also 8 bit, 1 stop, no parity.
  224. 'At 300 Baud the MJD and DUT1 values are deleted and the
  225. 'time is transmitted only on even seconds.
  226. '___________________________________________________________________________
  227. ''
  228. 'Maximum on line time will be 56 seconds.  If all lines are busy at any time,
  229. 'the oldest call will be terminated if it has been on line more than 28
  230. 'seconds, else, the call that first reaches 28 seconds will be terminated.
  231. '____________________________________________